home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nivb / nwafp.bas < prev    next >
BASIC Source File  |  1995-05-09  |  4KB  |  64 lines
  1. 'NWAFP.BAS  NetWare Apple Filing Protocol Services Interface for Visual Basic For Windows
  2. 'Version 1.0
  3. 'Novell Systems Research Department, Novell, Inc.
  4. 'Copyright (c) 1993, Novell, Inc.
  5. 'This interface is not supported through Novell's regular
  6. 'support channels.  See README.TXT for more information.
  7.  
  8. Type FILE_HANDLE
  9.      handle As String * 6
  10. End Type
  11.  
  12. Type AFP_FINDER_INFO
  13.     info As String * 32     'defined in Apple documents
  14. End Type
  15.  
  16. Type AFP_FILE_INFO
  17.     entryID As Long
  18.     parentID As Long
  19.     attributes As Integer
  20.     dataForkLength As Long
  21.     resourceForkLength As Long
  22.     numOffspring As Integer
  23.     creationDate As Integer
  24.     accessDate As Integer
  25.     modifyDate As Integer
  26.     modifyTime As Integer
  27.     backupDate As Integer
  28.     backupTime As Integer
  29.     finderInfo As AFP_FINDER_INFO
  30.     longname As String * 33
  31.     pad1 As String * 1
  32.     ownerID As Long
  33.     shortName As String * 13
  34.     pad2 As String * 1
  35.     accessPrivileges As Integer
  36. End Type
  37.  
  38. Type AFP_SET_INFO
  39.     attributes As Integer
  40.     creationDate As Integer
  41.     accessDate As Integer
  42.     modifyDate As Integer
  43.     modifyTime As Integer
  44.     backupDate As Integer
  45.     backupTime As Integer
  46.     finderInfo As AFP_FINDER_INFO
  47. End Type
  48.  
  49. Declare Function AFPAllocTemporaryDirHandle Lib "NWNETAPI.DLL" (ByVal connectionID%, ByVal volumeNum%, ByVal AFPEntryID&, ByVal AFPPathString$, NetWareDirectoryHandle%, accessRights%) As Integer
  50. Declare Function AFPCreateDirectory Lib "NWNETAPI.DLL" (ByVal connectionID%, ByVal volumeNum%, ByVal AFPEntryID&, finderInfo As AFP_FINDER_INFO, ByVal AFPPathString$, newAFPEntryID&) As Integer
  51. Declare Function AFPCreateFile Lib "NWNETAPI.DLL" (ByVal connectionID%, ByVal volumeNum%, ByVal AFPEntryID&, ByVal deleteExistingFile%, ByVal finderInfo&, AFPPathString$, newAFPEntryID&) As Integer
  52. Declare Function AFPDelete Lib "NWNETAPI.DLL" (ByVal connectionID%, ByVal volumeNum%, ByVal AFPEntryID&, ByVal AFPPathString$) As Integer
  53. Declare Function AFPDirectoryEntry Lib "NWNETAPI.DLL" (ByVal connectionID%, ByVal directoryHandle%, ByVal pathName$) As Integer
  54. Declare Function AFPGetEntryIDFromName Lib "NWNETAPI.DLL" (ByVal connectionID%, ByVal volumeNum%, ByVal AFPEntryID&, ByVal AFPPathString$, newAFPEntryID&) As Integer
  55. Declare Function AFPGetEntryIDFromNetWareHandle Lib "NWNETAPI.DLL" (netWareHandle As FILE_HANDLE, volumeNum%, AFPEntryID&, forkIndicator%) As Integer
  56. Declare Function AFPGetEntryIDFromPathName Lib "NWNETAPI.DLL" (ByVal connectionID%, ByVal directoryHandle%, ByVal pathName$, AFPEntryID&) As Integer
  57. Declare Function AFPGetFileInformation Lib "NWNETAPI.DLL" (ByVal connectionID%, ByVal volumeNum%, ByVal AFPEntryID&, ByVal requestBitMap%, ByVal AFPPathString$, ByVal structSize%, AFPFileInfo As AFP_FILE_INFO) As Integer
  58. Declare Function AFPOpenFileFork Lib "NWNETAPI.DLL" (ByVal connectionID%, ByVal volumeNum%, ByVal AFPEntryID&, ByVal forkIndicator%, ByVal accessMode%, ByVal AFPPathString$, fileID&, forkLength&, netWareHandle%, fileHandle%) As Integer
  59. Declare Function AFPRename Lib "NWNETAPI.DLL" (ByVal connectionID%, ByVal volumeNum%, ByVal AFPSourceEntryID&, ByVal AFPDestEntryID&, ByVal AFPSourcePath$, ByVal AFPDestPath$) As Integer
  60. Declare Function AFPScanFileInformation Lib "NWNETAPI.DLL" (ByVal connectionID%, ByVal volumeNum%, ByVal AFPEntryID&, AFPLastSeenID&, ByVal searchBitMap%, ByVal requestBitMap%, ByVal AFPPath$, ByVal structSize%, AFPFileInfo As AFP_FILE_INFO) As Integer
  61. Declare Function AFPSetFileInformation Lib "NWNETAPI.DLL" (ByVal connection%, ByVal volumeNum%, ByVal AFPEntryID&, ByVal requestBitMap%, ByVal AFPPathString$, ByVal structSize%, AFPSetInfo As AFP_SET_INFO) As Integer
  62. Declare Function AFPSupported Lib "NWNETAPI.DLL" (ByVal connID%) As Integer
  63.  
  64.